%%EndProcSet

setpacking

currentdict readonly pop end

3 { 1 sub neg 3 1 roll } repeat 0 } def

Adobe_cmykcolor_vars /_currentrgbcolor get exec

/currentcmykcolor {

pop } def 

Adobe_cmykcolor_vars /_setrgbcolor get exec

/setcmykcolor { 1 sub 4 1 roll 3 { 3 index add neg dup 0 lt { pop 0 } if 3 1 roll } repeat

/terminate { currentdict Agamik_cmykcolor eq {  end } if } def

} def

} ifelse

Agamik_cmykcolor begin

end

end

{ dup xcheck { bind } if pop pop } forall

Agamik_cmykcolor

Agamik_cmykcolor begin

/currentrgbcolor load def

/_currentrgbcolor

/setrgbcolor load def

/_setrgbcolor

{ userdict /Adobe_cmykcolor_vars 2 dict dup begin put

/setcmykcolor where { pop }

{

/initialize

userdict /Agamik_cmykcolor 4 dict dup begin put

currentpacking true setpacking

%%BeginProcSet: Agamik_cmykcolor 1.1 0

%%EndComments

%%DocumentPreview: Macintosh_ColorPic